home *** CD-ROM | disk | FTP | other *** search
- object MenuEditor: TMenuEditor
- Left = 134
- Top = 68
- BorderStyle = bsDialog
- Caption = 'Edit Right Mouse Button Menu'
- ClientHeight = 351
- ClientWidth = 356
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 184
- Width = 301
- Height = 13
- Caption = 'Right-Mouse Menu Items (Drag desired items in here)'
- end
- object Label3: TLabel
- Left = 8
- Top = 8
- Width = 194
- Height = 13
- Caption = 'Available Menu Items and Buttons'
- end
- object UpButton: TSpeedButton
- Left = 88
- Top = 320
- Width = 25
- Height = 25
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
- 3333333333777F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
- 3333333777737777F333333099999990333333373F3333373333333309999903
- 333333337F33337F33333333099999033333333373F333733333333330999033
- 3333333337F337F3333333333099903333333333373F37333333333333090333
- 33333333337F7F33333333333309033333333333337373333333333333303333
- 333333333337F3333333333333303333333333333337333333330000}
- NumGlyphs = 2
- OnClick = UpButtonClick
- end
- object DownButton: TSpeedButton
- Left = 120
- Top = 320
- Width = 25
- Height = 25
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 333333333337F33333333333333033333333333333373F333333333333090333
- 33333333337F7F33333333333309033333333333337373F33333333330999033
- 3333333337F337F33333333330999033333333333733373F3333333309999903
- 333333337F33337F33333333099999033333333373333373F333333099999990
- 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F333333333333000333333333333377733333330000}
- NumGlyphs = 2
- OnClick = DownButtonClick
- end
- object RightMouseListBox: TListBox
- Left = 8
- Top = 200
- Width = 337
- Height = 113
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Style = lbOwnerDrawFixed
- TabOrder = 1
- OnDragDrop = RightMouseListBoxDragDrop
- OnDragOver = RightMouseListBoxDragOver
- OnDrawItem = RightMouseListBoxDrawItem
- end
- object MenuItemsListBox: TListBox
- Left = 8
- Top = 24
- Width = 337
- Height = 153
- DragMode = dmAutomatic
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Sorted = True
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnDrawItem = MenuItemsListBoxDrawItem
- OnMouseDown = MenuItemsListBoxMouseDown
- end
- object OkButton: TBitBtn
- Left = 192
- Top = 320
- Width = 73
- Height = 25
- TabOrder = 3
- OnClick = OkButtonClick
- Kind = bkOK
- end
- object BitBtn5: TBitBtn
- Left = 272
- Top = 320
- Width = 73
- Height = 25
- TabOrder = 4
- Kind = bkCancel
- end
- object RemoveButton: TBitBtn
- Left = 8
- Top = 320
- Width = 73
- Height = 25
- Hint = 'Remove the selected item from the Right-Mouse Menu'
- Caption = '&Remove'
- TabOrder = 2
- OnClick = RemoveButtonClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF33333333333330003333333333333777333333333333
- 300033FFFFFF3333377739999993333333333777777F3333333F399999933333
- 3300377777733333337733333333333333003333333333333377333333333333
- 3333333333333333333F333333333333330033333F33333333773333C3333333
- 330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
- 993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
- 333333377F33333333FF3333C333333330003333733333333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- end
- end
-